home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / Sound.a < prev    next >
Encoding:
Text File  |  1998-02-12  |  74.8 KB  |  2,265 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Sound.a
  3. ;
  4. ;    Contains:    Sound Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    Sound Manager 3.3
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1986-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  19. __SOUND__ SET 1
  20.  
  21.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  22.     include 'MacTypes.a'
  23.     ENDIF
  24.     IF &TYPE('__DIALOGS__') = 'UNDEFINED' THEN
  25.     include 'Dialogs.a'
  26.     ENDIF
  27.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  28.     include 'Components.a'
  29.     ENDIF
  30.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  31.     include 'MixedMode.a'
  32.     ENDIF
  33.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  34.     include 'Movies.a'
  35.     ENDIF
  36.  
  37. ; 
  38. ;                        * * *  N O T E  * * *
  39. ;
  40. ;    This file has been updated to include Sound Manager 3.3 interfaces.
  41. ;
  42. ;    Some of the Sound Manager 3.0 interfaces were not put into the InterfaceLib
  43. ;    that originally shipped with the PowerMacs. These missing functions and the
  44. ;    new 3.3 interfaces have been released in the SoundLib library for PowerPC
  45. ;    developers to link with. The runtime library for these functions are
  46. ;    installed by the Sound Manager. The following functions are found in SoundLib.
  47. ;
  48. ;        GetCompressionInfo(), GetSoundPreference(), SetSoundPreference(),
  49. ;        UnsignedFixedMulDiv(), SndGetInfo(), SndSetInfo(), GetSoundOutputInfo(),
  50. ;        SetSoundOutputInfo(), GetCompressionName(), SoundConverterOpen(),
  51. ;        SoundConverterClose(), SoundConverterGetBufferSizes(), SoundConverterBeginConversion(),
  52. ;        SoundConverterConvertBuffer(), SoundConverterEndConversion(),
  53. ;        AudioGetBass(), AudioGetInfo(), AudioGetMute(), AudioGetOutputDevice(),
  54. ;        AudioGetTreble(), AudioGetVolume(), AudioMuteOnEvent(), AudioSetBass(),
  55. ;        AudioSetMute(), AudioSetToDefaults(), AudioSetTreble(), AudioSetVolume(),
  56. ;        OpenMixerSoundComponent(), CloseMixerSoundComponent(), SoundComponentAddSource(),
  57. ;        SoundComponentGetInfo(), SoundComponentGetSource(), SoundComponentGetSourceData(),
  58. ;        SoundComponentInitOutputDevice(), SoundComponentPauseSource(),
  59. ;        SoundComponentPlaySourceBuffer(), SoundComponentRemoveSource(),
  60. ;        SoundComponentSetInfo(), SoundComponentSetOutput(), SoundComponentSetSource(),
  61. ;        SoundComponentStartSource(), SoundComponentStopSource(),
  62. ;        ParseAIFFHeader(), ParseSndHeader(), SoundConverterGetInfo(), SoundConverterSetInfo()
  63. ;
  64.  
  65. ; 
  66. ;    Interfaces for Sound Driver, !!! OBSOLETE and NOT SUPPORTED !!!
  67. ;
  68. ;    These items are no longer defined, but appear here so that someone
  69. ;    searching the interfaces might find them. If you are using one of these
  70. ;    items, you must change your code to support the Sound Manager.
  71. ;
  72. ;        swMode, ftMode, ffMode
  73. ;        FreeWave, FFSynthRec, Tone, SWSynthRec, Wave, FTSoundRec
  74. ;        SndCompletionProcPtr
  75. ;        StartSound, StopSound, SoundDone
  76. ;
  77.  
  78.  
  79. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  80. ;   constants
  81. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  82.  
  83.  
  84.  
  85. soundListRsrc                    EQU        'snd '                ;Resource type used by Sound Manager
  86.  
  87. kSimpleBeepID                    EQU        1                    ;reserved resource ID for Simple Beep
  88.  
  89. rate48khz                        EQU        $BB800000            ;48000.00000 in fixed-point
  90. rate44khz                        EQU        $AC440000            ;44100.00000 in fixed-point
  91. rate22050hz                        EQU        $56220000            ;22050.00000 in fixed-point
  92. rate22khz                        EQU        $56EE8BA3            ;22254.54545 in fixed-point
  93. rate11khz                        EQU        $2B7745D1            ;11127.27273 in fixed-point
  94. rate11025hz                        EQU        $2B110000            ;11025.00000 in fixed-point
  95.  
  96.                                                             ;synthesizer numbers for SndNewChannel
  97. squareWaveSynth                    EQU        1                    ;square wave synthesizer
  98. waveTableSynth                    EQU        3                    ;wave table synthesizer
  99. sampledSynth                    EQU        5                    ;sampled sound synthesizer
  100.                                                             ;old Sound Manager MACE synthesizer numbers
  101. MACE3snthID                        EQU        11
  102. MACE6snthID                        EQU        13
  103.  
  104. kMiddleC                        EQU        60                    ;MIDI note value for middle C
  105.  
  106. kNoVolume                        EQU        0                    ;setting for no sound volume
  107. kFullVolume                        EQU        $0100                ;1.0, setting for full hardware output volume
  108.  
  109. stdQLength                        EQU        128
  110.  
  111. dataOffsetFlag                    EQU        $8000
  112.  
  113. kUseOptionalOutputDevice        EQU        -1                    ;only for Sound Manager 3.0 or later
  114.  
  115. notCompressed                    EQU        0                    ;compression ID's
  116. fixedCompression                EQU        -1                    ;compression ID for fixed-sized compression
  117. variableCompression                EQU        -2                    ;compression ID for variable-sized compression
  118.  
  119. twoToOne                        EQU        1
  120. eightToThree                    EQU        2
  121. threeToOne                        EQU        3
  122. sixToOne                        EQU        4
  123. sixToOnePacketSize                EQU        8
  124. threeToOnePacketSize            EQU        16
  125.  
  126. stateBlockSize                    EQU        64
  127. leftOverBlockSize                EQU        32
  128.  
  129. firstSoundFormat                EQU        $0001                ;general sound format
  130. secondSoundFormat                EQU        $0002                ;special sampled sound format (HyperCard)
  131.  
  132. dbBufferReady                    EQU        $00000001            ;double buffer is filled
  133. dbLastBuffer                    EQU        $00000004            ;last double buffer to play
  134.  
  135. sysBeepDisable                    EQU        $0000                ;SysBeep() enable flags
  136. sysBeepEnable                    EQU        $01
  137. sysBeepSynchronous                EQU        $02                    ;if bit set, make alert sounds synchronous
  138.  
  139. unitTypeNoSelection                EQU        $FFFF                ;unitTypes for AudioSelection.unitType
  140. unitTypeSeconds                    EQU        $0000
  141. ; PPCAsm thinks “extSH” is a directive and therefore can't be a constant (?)
  142. ; But the 68k Asm needs to have these constants, so wrap them inside TARGET_CPU_68K
  143.     IF TARGET_CPU_68K THEN
  144.  
  145. stdSH                            EQU        $00                    ;Standard sound header encode value
  146. extSH                            EQU        $FF                    ;Extended sound header encode value
  147. cmpSH                            EQU        $FE                    ;Compressed sound header encode value
  148.     ENDIF    ; TARGET_CPU_68K
  149. ; command numbers for SndDoCommand and SndDoImmediate
  150.  
  151. nullCmd                            EQU        0
  152. initCmd                            EQU        1
  153. freeCmd                            EQU        2
  154. quietCmd                        EQU        3
  155. flushCmd                        EQU        4
  156. reInitCmd                        EQU        5
  157. waitCmd                            EQU        10
  158. pauseCmd                        EQU        11
  159. resumeCmd                        EQU        12
  160. callBackCmd                        EQU        13
  161. syncCmd                            EQU        14
  162. availableCmd                    EQU        24
  163. versionCmd                        EQU        25
  164. totalLoadCmd                    EQU        26
  165. loadCmd                            EQU        27
  166. freqDurationCmd                    EQU        40
  167. restCmd                            EQU        41
  168. freqCmd                            EQU        42
  169. ampCmd                            EQU        43
  170. timbreCmd                        EQU        44
  171. getAmpCmd                        EQU        45
  172. volumeCmd                        EQU        46                    ;sound manager 3.0 or later only
  173. getVolumeCmd                    EQU        47                    ;sound manager 3.0 or later only
  174. clockComponentCmd                EQU        50                    ;sound manager 3.2.1 or later only
  175. getClockComponentCmd            EQU        51                    ;sound manager 3.2.1 or later only
  176. scheduledSoundCmd                EQU        52                    ;sound manager 3.3 or later only
  177. linkSoundComponentsCmd            EQU        53                    ;sound manager 3.3 or later only
  178. waveTableCmd                    EQU        60
  179. phaseCmd                        EQU        61
  180. soundCmd                        EQU        80
  181. bufferCmd                        EQU        81
  182. rateCmd                            EQU        82
  183. continueCmd                        EQU        83
  184. doubleBufferCmd                    EQU        84
  185. getRateCmd                        EQU        85
  186. rateMultiplierCmd                EQU        86
  187. getRateMultiplierCmd            EQU        87
  188. sizeCmd                            EQU        90                    ;obsolete command
  189. convertCmd                        EQU        91                    ;obsolete MACE command
  190.     IF OLDROUTINENAMES THEN
  191. ; channel initialization parameters
  192.  
  193. waveInitChannelMask                EQU        $07
  194. waveInitChannel0                EQU        $04                    ;wave table only, Sound Manager 2.0 and earlier
  195. waveInitChannel1                EQU        $05                    ;wave table only, Sound Manager 2.0 and earlier
  196. waveInitChannel2                EQU        $06                    ;wave table only, Sound Manager 2.0 and earlier
  197. waveInitChannel3                EQU        $07                    ;wave table only, Sound Manager 2.0 and earlier
  198. initChan0                        EQU        $04                    ;obsolete spelling
  199. initChan1                        EQU        $05                    ;obsolete spelling
  200. initChan2                        EQU        $06                    ;obsolete spelling
  201. initChan3                        EQU        $07                    ;obsolete spelling
  202.  
  203. outsideCmpSH                    EQU        0                    ;obsolete MACE constant
  204. insideCmpSH                        EQU        1                    ;obsolete MACE constant
  205. aceSuccess                        EQU        0                    ;obsolete MACE constant
  206. aceMemFull                        EQU        1                    ;obsolete MACE constant
  207. aceNilBlock                        EQU        2                    ;obsolete MACE constant
  208. aceBadComp                        EQU        3                    ;obsolete MACE constant
  209. aceBadEncode                    EQU        4                    ;obsolete MACE constant
  210. aceBadDest                        EQU        5                    ;obsolete MACE constant
  211. aceBadCmd                        EQU        6                    ;obsolete MACE constant
  212.     ENDIF    ; OLDROUTINENAMES
  213.  
  214. initChanLeft                    EQU        $0002                ;left stereo channel
  215. initChanRight                    EQU        $0003                ;right stereo channel
  216. initNoInterp                    EQU        $0004                ;no linear interpolation
  217. initNoDrop                        EQU        $0008                ;no drop-sample conversion
  218. initMono                        EQU        $0080                ;monophonic channel
  219. initStereo                        EQU        $00C0                ;stereo channel
  220. initMACE3                        EQU        $0300                ;MACE 3:1
  221. initMACE6                        EQU        $0400                ;MACE 6:1
  222. initPanMask                        EQU        $0003                ;mask for right/left pan values
  223. initSRateMask                    EQU        $0030                ;mask for sample rate values
  224. initStereoMask                    EQU        $00C0                ;mask for mono/stereo values
  225. initCompMask                    EQU        $FF00                ;mask for compression IDs
  226. ; Get&Set Sound Information Selectors
  227.  
  228. siActiveChannels                EQU        'chac'                ;active channels
  229. siActiveLevels                    EQU        'lmac'                ;active meter levels
  230. siAGCOnOff                        EQU        'agc '                ;automatic gain control state
  231. siAsync                            EQU        'asyn'                ;asynchronous capability
  232. siAVDisplayBehavior                EQU        'avdb'
  233. siChannelAvailable                EQU        'chav'                ;number of channels available
  234. siCompressionAvailable            EQU        'cmav'                ;compression types available
  235. siCompressionFactor                EQU        'cmfa'                ;current compression factor
  236. siCompressionHeader                EQU        'cmhd'                ;return compression header
  237. siCompressionNames                EQU        'cnam'                ;compression type names available
  238. siCompressionParams                EQU        'evaw'                ;compression parameters
  239. siCompressionType                EQU        'comp'                ;current compression type
  240. siContinuous                    EQU        'cont'                ;continous recording
  241. siDecompressionParams            EQU        'wave'                ;decompression parameters
  242. siDeviceBufferInfo                EQU        'dbin'                ;size of interrupt buffer
  243. siDeviceConnected                EQU        'dcon'                ;input device connection status
  244. siDeviceIcon                    EQU        'icon'                ;input device icon
  245. siDeviceName                    EQU        'name'                ;input device name
  246. siHardwareBalance                EQU        'hbal'
  247. siHardwareBalanceSteps            EQU        'hbls'
  248. siHardwareBass                    EQU        'hbas'
  249. siHardwareBassSteps                EQU        'hbst'
  250. siHardwareBusy                    EQU        'hwbs'                ;sound hardware is in use
  251. siHardwareFormat                EQU        'hwfm'                ;get hardware format
  252. siHardwareMute                    EQU        'hmut'                ;mute state of all hardware
  253. siHardwareTreble                EQU        'htrb'
  254. siHardwareTrebleSteps            EQU        'hwts'
  255. siHardwareVolume                EQU        'hvol'                ;volume level of all hardware
  256. siHardwareVolumeSteps            EQU        'hstp'                ;number of volume steps for hardware
  257. siHeadphoneMute                    EQU        'pmut'                ;mute state of headphones
  258. siHeadphoneVolume                EQU        'pvol'                ;volume level of headphones
  259. siHeadphoneVolumeSteps            EQU        'hdst'                ;number of volume steps for headphones
  260. siInputAvailable                EQU        'inav'                ;input sources available
  261. siInputGain                        EQU        'gain'                ;input gain
  262. siInputSource                    EQU        'sour'                ;input source selector
  263. siInputSourceNames                EQU        'snam'                ;input source names
  264. siLevelMeterOnOff                EQU        'lmet'                ;level meter state
  265. siModemGain                        EQU        'mgai'                ;modem input gain
  266. siMonitorAvailable                EQU        'mnav'
  267. siMonitorSource                    EQU        'mons'
  268. siNumberChannels                EQU        'chan'                ;current number of channels
  269. siOptionsDialog                    EQU        'optd'                ;display options dialog
  270. siOSTypeInputSource                EQU        'inpt'                ;input source by OSType
  271. siOSTypeInputAvailable            EQU        'inav'                ;list of available input source OSTypes
  272. siPlayThruOnOff                    EQU        'plth'                ;playthrough state
  273. siPostMixerSoundComponent        EQU        'psmx'                ;install post-mixer effect
  274. siPreMixerSoundComponent        EQU        'prmx'                ;install pre-mixer effect
  275. siQuality                        EQU        'qual'                ;quality setting
  276. siRateMultiplier                EQU        'rmul'                ;throttle rate setting
  277. siRecordingQuality                EQU        'qual'                ;recording quality
  278. siSampleRate                    EQU        'srat'                ;current sample rate
  279. siSampleRateAvailable            EQU        'srav'                ;sample rates available
  280. siSampleSize                    EQU        'ssiz'                ;current sample size
  281. siSampleSizeAvailable            EQU        'ssav'                ;sample sizes available
  282. siSetupCDAudio                    EQU        'sucd'                ;setup sound hardware for CD audio
  283. siSetupModemAudio                EQU        'sumd'                ;setup sound hardware for modem audio
  284. siSlopeAndIntercept                EQU        'flap'                ;floating point variables for conversion
  285. siSoundClock                    EQU        'sclk'
  286. siUseThisSoundClock                EQU        'sclc'                ;sdev uses this to tell the mixer to use his sound clock
  287. siSpeakerMute                    EQU        'smut'                ;mute state of all built-in speaker
  288. siSpeakerVolume                    EQU        'svol'                ;volume level of built-in speaker
  289. siSSpCPULoadLimit                EQU        '3dll'
  290. siSSpLocalization                EQU        '3dif'
  291. siSSpSpeakerSetup                EQU        '3dst'
  292. siStereoInputGain                EQU        'sgai'                ;stereo input gain
  293. siSubwooferMute                    EQU        'bmut'                ;mute state of sub-woofer
  294. siTwosComplementOnOff            EQU        'twos'                ;two's complement state
  295. siVolume                        EQU        'volu'                ;volume level of source
  296. siVoxRecordInfo                    EQU        'voxr'                ;VOX record parameters
  297. siVoxStopInfo                    EQU        'voxs'                ;VOX stop parameters
  298. siWideStereo                    EQU        'wide'                ;wide stereo setting
  299.  
  300. siCloseDriver                    EQU        'clos'                ;reserved for internal use only
  301. siInitializeDriver                EQU        'init'                ;reserved for internal use only
  302. siPauseRecording                EQU        'paus'                ;reserved for internal use only
  303. siUserInterruptProc                EQU        'user'                ;reserved for internal use only
  304. ;  input source Types
  305.  
  306. kInvalidSource                    EQU        $FFFFFFFF            ;this source may be returned from GetInfo if no other source is the monitored source
  307. kNoSource                        EQU        'none'                ;no source selection
  308. kCDSource                        EQU        'cd  '                ;internal CD player input
  309. kExtMicSource                    EQU        'emic'                ;external mic input
  310. kRCAInSource                    EQU        'irca'                ;RCA jack input
  311. kTVFMTunerSource                EQU        'tvfm'
  312. kDAVInSource                    EQU        'idav'                ;DAV analog input
  313. kIntMicSource                    EQU        'imic'                ;internal mic input
  314. kMediaBaySource                    EQU        'mbay'                ;media bay input
  315. kModemSource                    EQU        'modm'                ;modem input (internal modem on desktops, PCI input on PowerBooks)
  316. kPCCardSource                    EQU        'pcm '                ;PC Card pwm input
  317. kZoomVideoSource                EQU        'zvpc'                ;zoom video input
  318. kDVDSource                        EQU        'dvda'                ;DVD audio input
  319. ; Sound Component Types and Subtypes
  320.  
  321. kNoSoundComponentType            EQU        '****'
  322. kSoundComponentType                EQU        'sift'                ;component type
  323. kSoundComponentPPCType            EQU        'nift'                ;component type for PowerPC code
  324. kRate8SubType                    EQU        'ratb'                ;8-bit rate converter
  325. kRate16SubType                    EQU        'ratw'                ;16-bit rate converter
  326. kConverterSubType                EQU        'conv'                ;sample format converter
  327. kSndSourceSubType                EQU        'sour'                ;generic source component
  328. kMixerType                        EQU        'mixr'
  329. kMixer8SubType                    EQU        'mixb'                ;8-bit mixer
  330. kMixer16SubType                    EQU        'mixw'                ;16-bit mixer
  331. kSoundInputDeviceType            EQU        'sinp'                ;sound input component
  332. kWaveInSubType                    EQU        'wavi'                ;Windows Wave
  333. kSoundOutputDeviceType            EQU        'sdev'                ;sound output component
  334. kClassicSubType                    EQU        'clas'                ;classic hardware, i.e. Mac Plus
  335. kASCSubType                        EQU        'asc '                ;Apple Sound Chip device
  336. kDSPSubType                        EQU        'dsp '                ;DSP device
  337. kAwacsSubType                    EQU        'awac'                ;Another of Will's Audio Chips device
  338. kGCAwacsSubType                    EQU        'awgc'                ;Awacs audio with Grand Central DMA
  339. kSingerSubType                    EQU        'sing'                ;Singer (via Whitney) based sound
  340. kSinger2SubType                    EQU        'sng2'                ;Singer 2 (via Whitney) for Acme
  341. kWhitSubType                    EQU        'whit'                ;Whit sound component for PrimeTime 3
  342. kSoundBlasterSubType            EQU        'sbls'                ;Sound Blaster for CHRP
  343. kWaveOutSubType                    EQU        'wavo'                ;Windows Wave
  344. kDirectSoundSubType                EQU        'dsnd'                ;Direct Sound
  345. kUNIXsdevSubType                EQU        'un1x'                ;UNIX base sdev
  346. kSoundCompressor                EQU        'scom'
  347. kSoundDecompressor                EQU        'sdec'
  348. kAudioComponentType                EQU        'adio'                ;Audio components and sub-types
  349. kAwacsPhoneSubType                EQU        'hphn'
  350. kAudioVisionSpeakerSubType        EQU        'telc'
  351. kAudioVisionHeadphoneSubType    EQU        'telh'
  352. kPhilipsFaderSubType            EQU        'tvav'
  353. kSGSToneSubType                    EQU        'sgs0'
  354. kSoundEffectsType                EQU        'snfx'                ;sound effects type
  355. kSSpLocalizationSubType            EQU        'snd3'
  356. ; Format Types
  357.  
  358. kSoundNotCompressed                EQU        'NONE'                ;sound is not compressed
  359. k8BitOffsetBinaryFormat            EQU        'raw '                ;8-bit offset binary
  360. k16BitBigEndianFormat            EQU        'twos'                ;16-bit big endian
  361. k16BitLittleEndianFormat        EQU        'sowt'                ;16-bit little endian
  362. kFloat32Format                    EQU        'fl32'                ;32-bit floating point
  363. kFloat64Format                    EQU        'fl64'                ;64-bit floating point
  364. k24BitFormat                    EQU        'in24'                ;24-bit integer
  365. k32BitFormat                    EQU        'in32'                ;32-bit integer
  366. kMACE3Compression                EQU        'MAC3'                ;MACE 3:1
  367. kMACE6Compression                EQU        'MAC6'                ;MACE 6:1
  368. kCDXA4Compression                EQU        'cdx4'                ;CD/XA 4:1
  369. kCDXA2Compression                EQU        'cdx2'                ;CD/XA 2:1
  370. kIMACompression                    EQU        'ima4'                ;IMA 4:1
  371. kULawCompression                EQU        'ulaw'                ;µLaw 2:1
  372. kALawCompression                EQU        'alaw'                ;aLaw 2:1
  373. kMicrosoftADPCMFormat            EQU        $6D730002            ;Microsoft ADPCM - ACM code 2
  374. kDVIIntelIMAFormat                EQU        $6D730011            ;DVI/Intel IMA ADPCM - ACM code 17
  375. kDVAudioFormat                    EQU        'dvca'                ;DV Audio
  376. kOffsetBinary                    EQU        'raw '                ;for compatibility
  377. kTwosComplement                    EQU        'twos'                ;for compatibility
  378. kLittleEndianFormat                EQU        'sowt'                ;for compatibility
  379.     IF TARGET_RT_LITTLE_ENDIAN THEN
  380.  
  381. k16BitNativeEndianFormat        EQU        'sowt'
  382. k16BitNonNativeEndianFormat        EQU        'twos'
  383.     ELSE
  384.  
  385. k16BitNativeEndianFormat        EQU        'twos'
  386. k16BitNonNativeEndianFormat        EQU        'sowt'
  387.     ENDIF    ; TARGET_RT_LITTLE_ENDIAN
  388. ; Features Flags
  389.  
  390. k8BitRawIn                        EQU        $01                    ;data description
  391. k8BitTwosIn                        EQU        $02
  392. k16BitIn                        EQU        $04
  393. kStereoIn                        EQU        $08
  394. k8BitRawOut                        EQU        $0100
  395. k8BitTwosOut                    EQU        $0200
  396. k16BitOut                        EQU        $0400
  397. kStereoOut                        EQU        $0800
  398. kReverse                        EQU        $00010000            ;  function description
  399. kRateConvert                    EQU        $00020000
  400. kCreateSoundSource                EQU        $00040000
  401. kHighQuality                    EQU        $00400000            ;  performance description
  402. kNonRealTime                    EQU        $00800000
  403. ; SoundComponentPlaySourceBuffer action flags
  404.  
  405. kSourcePaused                    EQU        $01
  406. kPassThrough                    EQU        $00010000
  407. kNoSoundComponentChain            EQU        $00020000
  408. ; SoundParamBlock flags, usefull for OpenMixerSoundComponent
  409.  
  410. kNoMixing                        EQU        $01                    ;don't mix source
  411. kNoSampleRateConversion            EQU        $02                    ;don't convert sample rate (i.e. 11 kHz -> 22 kHz)
  412. kNoSampleSizeConversion            EQU        $04                    ;don't convert sample size (i.e. 16 -> 8)
  413. kNoSampleFormatConversion        EQU        $08                    ;don't convert sample format (i.e. 'twos' -> 'raw ')
  414. kNoChannelConversion            EQU        $10                    ;don't convert stereo/mono
  415. kNoDecompression                EQU        $20                    ;don't decompress (i.e. 'MAC3' -> 'raw ')
  416. kNoVolumeConversion                EQU        $40                    ;don't apply volume
  417. kNoRealtimeProcessing            EQU        $80                    ;won't run at interrupt time
  418. kScheduledSource                EQU        $0100                ;source is scheduled
  419. ; SoundParamBlock quality settings
  420.  
  421. kBestQuality                    EQU        $01                    ;use interpolation in rate conversion
  422. ; useful bit masks
  423.  
  424. kInputMask                        EQU        $000000FF            ;masks off input bits
  425. kOutputMask                        EQU        $0000FF00            ;masks off output bits
  426. kOutputShift                    EQU        8                    ;amount output bits are shifted
  427. kActionMask                        EQU        $00FF0000            ;masks off action bits
  428. kSoundComponentBits                EQU        $00FFFFFF
  429. ; audio atom types
  430.  
  431. kAudioFormatAtomType            EQU        'frma'
  432. kAudioEndianAtomType            EQU        'enda'
  433. kAudioTerminatorAtomType        EQU        0
  434. ; siAVDisplayBehavior types
  435.  
  436. kAVDisplayHeadphoneRemove        EQU        0                    ; monitor does not have a headphone attached
  437. kAVDisplayHeadphoneInsert        EQU        1                    ; monitor has a headphone attached
  438. kAVDisplayPlainTalkRemove        EQU        2                    ; monitor either sending no input through CPU input port or unable to tell if input is coming in
  439. kAVDisplayPlainTalkInsert        EQU        3                    ; monitor sending PlainTalk level microphone source input through sound input port
  440. ; Audio Component constants
  441.  
  442.                                                             ;Values for whichChannel parameter
  443. audioAllChannels                EQU        0                    ;All channels (usually interpreted as both left and right)
  444. audioLeftChannel                EQU        1                    ;Left channel
  445. audioRightChannel                EQU        2                    ;Right channel
  446.                                                             ;Values for mute parameter
  447. audioUnmuted                    EQU        0                    ;Device is unmuted
  448. audioMuted                        EQU        1                    ;Device is muted
  449.                                                             ;Capabilities flags definitions
  450. audioDoesMono                    EQU        $00000001            ;Device supports mono output
  451. audioDoesStereo                    EQU        $00000002            ;Device supports stereo output
  452. audioDoesIndependentChannels    EQU        $00000004            ;Device supports independent software control of each channel
  453. ; Sound Input Qualities
  454.  
  455. siCDQuality                        EQU        'cd  '                ;44.1kHz, stereo, 16 bit
  456. siBestQuality                    EQU        'best'                ;22kHz, mono, 8 bit
  457. siBetterQuality                    EQU        'betr'                ;22kHz, mono, MACE 3:1
  458. siGoodQuality                    EQU        'good'                ;22kHz, mono, MACE 6:1
  459.  
  460. siDeviceIsConnected                EQU        1                    ;input device is connected and ready for input
  461. siDeviceNotConnected            EQU        0                    ;input device is not connected
  462. siDontKnowIfConnected            EQU        -1                    ;can't tell if input device is connected
  463. siReadPermission                EQU        0                    ;permission passed to SPBOpenDevice
  464. siWritePermission                EQU        1                    ;permission passed to SPBOpenDevice
  465.  
  466. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  467. ;   typedefs
  468. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  469.  
  470.  
  471.  
  472. SndCommand                RECORD 0
  473. cmd                         ds.w    1                ; offset: $0 (0)
  474. param1                     ds.w    1                ; offset: $2 (2)
  475. param2                     ds.l    1                ; offset: $4 (4)
  476. sizeof                     EQU *                    ; size:   $8 (8)
  477.                         ENDR
  478.  
  479.  
  480. ; typedef SndChannel *                    SndChannelPtr
  481.  
  482. SndChannel                RECORD 0
  483. nextChan                 ds.l    1                ; offset: $0 (0)
  484. firstMod                 ds.l    1                ; offset: $4 (4)        ;  reserved for the Sound Manager 
  485. callBack                 ds.l    1                ; offset: $8 (8)
  486. userInfo                 ds.l    1                ; offset: $C (12)
  487. wait                     ds.l    1                ; offset: $10 (16)        ;  The following is for internal Sound Manager use only.
  488. cmdInProgress             ds        SndCommand        ; offset: $14 (20)
  489. flags                     ds.w    1                ; offset: $1C (28)
  490. qLength                     ds.w    1                ; offset: $1E (30)
  491. qHead                     ds.w    1                ; offset: $20 (32)
  492. qTail                     ds.w    1                ; offset: $22 (34)
  493. queue                     ds.b    128 * SndCommand.sizeof ; offset: $24 (36)
  494. sizeof                     EQU *                    ; size:   $424 (1060)
  495.                         ENDR
  496. ; MACE structures
  497. StateBlock                RECORD 0
  498. stateVar                 ds.w    64                ; offset: $0 (0)
  499. sizeof                     EQU *                    ; size:   $80 (128)
  500.                         ENDR
  501. ; typedef struct StateBlock *            StateBlockPtr
  502.  
  503. LeftOverBlock            RECORD 0
  504. count                     ds.l    1                ; offset: $0 (0)
  505. sampleArea                 ds.b    32                ; offset: $4 (4)
  506. sizeof                     EQU *                    ; size:   $24 (36)
  507.                         ENDR
  508. ; typedef struct LeftOverBlock *        LeftOverBlockPtr
  509.  
  510. ModRef                    RECORD 0
  511. modNumber                 ds.w    1                ; offset: $0 (0)
  512. modInit                     ds.l    1                ; offset: $2 (2)
  513. sizeof                     EQU *                    ; size:   $6 (6)
  514.                         ENDR
  515. SndListResource            RECORD 0
  516. format                     ds.w    1                ; offset: $0 (0)
  517. numModifiers             ds.w    1                ; offset: $2 (2)
  518. modifierPart             ds        ModRef            ; offset: $4 (4) <-- really an array of length one
  519. numCommands                 ds.w    1                ; offset: $A (10)
  520. commandPart                 ds        SndCommand        ; offset: $C (12) <-- really an array of length one
  521. dataPart                 ds.b    1                ; offset: $14 (20) <-- really an array of length one
  522.                          ORG 22
  523. sizeof                     EQU *                    ; size:   $16 (22)
  524.                         ENDR
  525. ; typedef struct SndListResource *        SndListPtr
  526.  
  527. ; typedef SndListPtr *                    SndListHandle
  528.  
  529. ; typedef SndListHandle                 SndListHndl
  530.  
  531. ; HyperCard sound resource format
  532. Snd2ListResource        RECORD 0
  533. format                     ds.w    1                ; offset: $0 (0)
  534. refCount                 ds.w    1                ; offset: $2 (2)
  535. numCommands                 ds.w    1                ; offset: $4 (4)
  536. commandPart                 ds        SndCommand        ; offset: $6 (6) <-- really an array of length one
  537. dataPart                 ds.b    1                ; offset: $E (14) <-- really an array of length one
  538.                          ORG 16
  539. sizeof                     EQU *                    ; size:   $10 (16)
  540.                         ENDR
  541. ; typedef struct Snd2ListResource *        Snd2ListPtr
  542.  
  543. ; typedef Snd2ListPtr *                    Snd2ListHandle
  544.  
  545. ; typedef Snd2ListHandle                 Snd2ListHndl
  546.  
  547. SoundHeader                RECORD 0
  548. samplePtr                 ds.l    1                ; offset: $0 (0)        ; if NIL then samples are in sampleArea
  549. length                     ds.l    1                ; offset: $4 (4)        ; length of sound in bytes
  550. sampleRate                 ds.l    1                ; offset: $8 (8)        ; sample rate for this sound
  551. loopStart                 ds.l    1                ; offset: $C (12)        ; start of looping portion
  552. loopEnd                     ds.l    1                ; offset: $10 (16)        ; end of looping portion
  553. encode                     ds.b    1                ; offset: $14 (20)        ; header encoding
  554. baseFrequency             ds.b    1                ; offset: $15 (21)        ; baseFrequency value
  555. sampleArea                 ds.b    1                ; offset: $16 (22) <-- really an array of length one ; space for when samples follow directly
  556.                          ORG 24
  557. sizeof                     EQU *                    ; size:   $18 (24)
  558.                         ENDR
  559. ; typedef struct SoundHeader *            SoundHeaderPtr
  560.  
  561. CmpSoundHeader            RECORD 0
  562. samplePtr                 ds.l    1                ; offset: $0 (0)        ; if nil then samples are in sample area
  563. numChannels                 ds.l    1                ; offset: $4 (4)        ; number of channels i.e. mono = 1
  564. sampleRate                 ds.l    1                ; offset: $8 (8)        ; sample rate in Apples Fixed point representation
  565. loopStart                 ds.l    1                ; offset: $C (12)        ; loopStart of sound before compression
  566. loopEnd                     ds.l    1                ; offset: $10 (16)        ; loopEnd of sound before compression
  567. encode                     ds.b    1                ; offset: $14 (20)        ; data structure used , stdSH, extSH, or cmpSH
  568. baseFrequency             ds.b    1                ; offset: $15 (21)        ; same meaning as regular SoundHeader
  569. numFrames                 ds.l    1                ; offset: $16 (22)        ; length in frames ( packetFrames or sampleFrames )
  570. AIFFSampleRate             ds        extended80        ; offset: $1A (26)        ; IEEE sample rate
  571. markerChunk                 ds.l    1                ; offset: $24 (36)        ; sync track
  572. format                     ds.l    1                ; offset: $28 (40)        ; data format type, was futureUse1
  573. futureUse2                 ds.l    1                ; offset: $2C (44)        ; reserved by Apple
  574. stateVars                 ds.l    1                ; offset: $30 (48)        ; pointer to State Block
  575. leftOverSamples             ds.l    1                ; offset: $34 (52)        ; used to save truncated samples between compression calls
  576. compressionID             ds.w    1                ; offset: $38 (56)        ; 0 means no compression, non zero means compressionID
  577. packetSize                 ds.w    1                ; offset: $3A (58)        ; number of bits in compressed sample packet
  578. snthID                     ds.w    1                ; offset: $3C (60)        ; resource ID of Sound Manager snth that contains NRT C/E
  579. sampleSize                 ds.w    1                ; offset: $3E (62)        ; number of bits in non-compressed sample
  580. sampleArea                 ds.b    1                ; offset: $40 (64) <-- really an array of length one ; space for when samples follow directly
  581.                          ORG 66
  582. sizeof                     EQU *                    ; size:   $42 (66)
  583.                         ENDR
  584. ; typedef struct CmpSoundHeader *        CmpSoundHeaderPtr
  585.  
  586. ExtSoundHeader            RECORD 0
  587. samplePtr                 ds.l    1                ; offset: $0 (0)        ; if nil then samples are in sample area
  588. numChannels                 ds.l    1                ; offset: $4 (4)        ; number of channels,  ie mono = 1
  589. sampleRate                 ds.l    1                ; offset: $8 (8)        ; sample rate in Apples Fixed point representation
  590. loopStart                 ds.l    1                ; offset: $C (12)        ; same meaning as regular SoundHeader
  591. loopEnd                     ds.l    1                ; offset: $10 (16)        ; same meaning as regular SoundHeader
  592. encode                     ds.b    1                ; offset: $14 (20)        ; data structure used , stdSH, extSH, or cmpSH
  593. baseFrequency             ds.b    1                ; offset: $15 (21)        ; same meaning as regular SoundHeader
  594. numFrames                 ds.l    1                ; offset: $16 (22)        ; length in total number of frames
  595. AIFFSampleRate             ds        extended80        ; offset: $1A (26)        ; IEEE sample rate
  596. markerChunk                 ds.l    1                ; offset: $24 (36)        ; sync track
  597. instrumentChunks         ds.l    1                ; offset: $28 (40)        ; AIFF instrument chunks
  598. AESRecording             ds.l    1                ; offset: $2C (44)
  599. sampleSize                 ds.w    1                ; offset: $30 (48)        ; number of bits in sample
  600. futureUse1                 ds.w    1                ; offset: $32 (50)        ; reserved by Apple
  601. futureUse2                 ds.l    1                ; offset: $34 (52)        ; reserved by Apple
  602. futureUse3                 ds.l    1                ; offset: $38 (56)        ; reserved by Apple
  603. futureUse4                 ds.l    1                ; offset: $3C (60)        ; reserved by Apple
  604. sampleArea                 ds.b    1                ; offset: $40 (64) <-- really an array of length one ; space for when samples follow directly
  605.                          ORG 66
  606. sizeof                     EQU *                    ; size:   $42 (66)
  607.                         ENDR
  608. ; typedef struct ExtSoundHeader *        ExtSoundHeaderPtr
  609.  
  610. SoundHeaderUnion        RECORD 0
  611. stdHeader                 ds        SoundHeader        ; offset: $0 (0)
  612.                          ORG 0
  613. cmpHeader                 ds        CmpSoundHeader ; offset: $0 (0)
  614.                          ORG 0
  615. extHeader                 ds        ExtSoundHeader ; offset: $0 (0)
  616. sizeof                     EQU *                    ; size:   $42 (66)
  617.                         ENDR
  618. ConversionBlock            RECORD 0
  619. destination                 ds.w    1                ; offset: $0 (0)
  620. unused                     ds.w    1                ; offset: $2 (2)
  621. inputPtr                 ds.l    1                ; offset: $4 (4)
  622. outputPtr                 ds.l    1                ; offset: $8 (8)
  623. sizeof                     EQU *                    ; size:   $C (12)
  624.                         ENDR
  625. ; typedef struct ConversionBlock *        ConversionBlockPtr
  626.  
  627. ;  ScheduledSoundHeader flags
  628.  
  629. kScheduledSoundDoScheduled        EQU        $01
  630. kScheduledSoundDoCallBack        EQU        $02
  631. ScheduledSoundHeader    RECORD 0
  632. u                         ds        SoundHeaderUnion ; offset: $0 (0)
  633. flags                     ds.l    1                ; offset: $42 (66)
  634. reserved                 ds.w    1                ; offset: $46 (70)
  635. callBackParam1             ds.w    1                ; offset: $48 (72)
  636. callBackParam2             ds.l    1                ; offset: $4A (74)
  637. startTime                 ds        TimeRecord        ; offset: $4E (78)
  638. sizeof                     EQU *                    ; size:   $5E (94)
  639.                         ENDR
  640. ; typedef struct ScheduledSoundHeader *    ScheduledSoundHeaderPtr
  641.  
  642. SMStatus                RECORD 0
  643. smMaxCPULoad             ds.w    1                ; offset: $0 (0)
  644. smNumChannels             ds.w    1                ; offset: $2 (2)
  645. smCurCPULoad             ds.w    1                ; offset: $4 (4)
  646. sizeof                     EQU *                    ; size:   $6 (6)
  647.                         ENDR
  648. ; typedef struct SMStatus *                SMStatusPtr
  649.  
  650. SCStatus                RECORD 0
  651. scStartTime                 ds.l    1                ; offset: $0 (0)
  652. scEndTime                 ds.l    1                ; offset: $4 (4)
  653. scCurrentTime             ds.l    1                ; offset: $8 (8)
  654. scChannelBusy             ds.b    1                ; offset: $C (12)
  655. scChannelDisposed         ds.b    1                ; offset: $D (13)
  656. scChannelPaused             ds.b    1                ; offset: $E (14)
  657. scUnused                 ds.b    1                ; offset: $F (15)
  658. scChannelAttributes         ds.l    1                ; offset: $10 (16)
  659. scCPULoad                 ds.l    1                ; offset: $14 (20)
  660. sizeof                     EQU *                    ; size:   $18 (24)
  661.                         ENDR
  662. ; typedef struct SCStatus *                SCStatusPtr
  663.  
  664. AudioSelection            RECORD 0
  665. unitType                 ds.l    1                ; offset: $0 (0)
  666. selStart                 ds.l    1                ; offset: $4 (4)
  667. selEnd                     ds.l    1                ; offset: $8 (8)
  668. sizeof                     EQU *                    ; size:   $C (12)
  669.                         ENDR
  670. ; typedef struct AudioSelection *        AudioSelectionPtr
  671.  
  672. SndDoubleBuffer            RECORD 0
  673. dbNumFrames                 ds.l    1                ; offset: $0 (0)
  674. dbFlags                     ds.l    1                ; offset: $4 (4)
  675. dbUserInfo                 ds.l    2                ; offset: $8 (8)
  676. dbSoundData                 ds.b    1                ; offset: $10 (16) <-- really an array of length one
  677.                          ORG 18
  678. sizeof                     EQU *                    ; size:   $12 (18)
  679.                         ENDR
  680. ; typedef struct SndDoubleBuffer *        SndDoubleBufferPtr
  681.  
  682. SndDoubleBufferHeader    RECORD 0
  683. dbhNumChannels             ds.w    1                ; offset: $0 (0)
  684. dbhSampleSize             ds.w    1                ; offset: $2 (2)
  685. dbhCompressionID         ds.w    1                ; offset: $4 (4)
  686. dbhPacketSize             ds.w    1                ; offset: $6 (6)
  687. dbhSampleRate             ds.l    1                ; offset: $8 (8)
  688. dbhBufferPtr             ds.l    2                ; offset: $C (12)
  689. dbhDoubleBack             ds.l    1                ; offset: $14 (20)
  690. sizeof                     EQU *                    ; size:   $18 (24)
  691.                         ENDR
  692. ; typedef struct SndDoubleBufferHeader * SndDoubleBufferHeaderPtr
  693.  
  694. SndDoubleBufferHeader2    RECORD 0
  695. dbhNumChannels             ds.w    1                ; offset: $0 (0)
  696. dbhSampleSize             ds.w    1                ; offset: $2 (2)
  697. dbhCompressionID         ds.w    1                ; offset: $4 (4)
  698. dbhPacketSize             ds.w    1                ; offset: $6 (6)
  699. dbhSampleRate             ds.l    1                ; offset: $8 (8)
  700. dbhBufferPtr             ds.l    2                ; offset: $C (12)
  701. dbhDoubleBack             ds.l    1                ; offset: $14 (20)
  702. dbhFormat                 ds.l    1                ; offset: $18 (24)
  703. sizeof                     EQU *                    ; size:   $1C (28)
  704.                         ENDR
  705. ; typedef struct SndDoubleBufferHeader2 * SndDoubleBufferHeader2Ptr
  706.  
  707. SoundInfoList            RECORD 0
  708. count                     ds.w    1                ; offset: $0 (0)
  709. infoHandle                 ds.l    1                ; offset: $2 (2)
  710. sizeof                     EQU *                    ; size:   $6 (6)
  711.                         ENDR
  712. ; typedef struct SoundInfoList *        SoundInfoListPtr
  713.  
  714. SoundComponentData        RECORD 0
  715. flags                     ds.l    1                ; offset: $0 (0)
  716. format                     ds.l    1                ; offset: $4 (4)
  717. numChannels                 ds.w    1                ; offset: $8 (8)
  718. sampleSize                 ds.w    1                ; offset: $A (10)
  719. sampleRate                 ds.l    1                ; offset: $C (12)
  720. sampleCount                 ds.l    1                ; offset: $10 (16)
  721. buffer                     ds.l    1                ; offset: $14 (20)
  722. reserved                 ds.l    1                ; offset: $18 (24)
  723. sizeof                     EQU *                    ; size:   $1C (28)
  724.                         ENDR
  725. ; typedef struct SoundComponentData *    SoundComponentDataPtr
  726.  
  727.  
  728.  
  729. ; typedef SoundParamBlock *                SoundParamBlockPtr
  730.  
  731. SoundParamBlock            RECORD 0
  732. recordSize                 ds.l    1                ; offset: $0 (0)        ; size of this record in bytes
  733. desc                     ds        SoundComponentData ; offset: $4 (4)        ; description of sound buffer
  734. rateMultiplier             ds.l    1                ; offset: $20 (32)        ; rate multiplier to apply to sound
  735. leftVolume                 ds.w    1                ; offset: $24 (36)        ; volumes to apply to sound
  736. rightVolume                 ds.w    1                ; offset: $26 (38)
  737. quality                     ds.l    1                ; offset: $28 (40)        ; quality to apply to sound
  738. filter                     ds.l    1                ; offset: $2C (44)        ; filter to apply to sound
  739. moreRtn                     ds.l    1                ; offset: $30 (48)        ; routine to call to get more data
  740. completionRtn             ds.l    1                ; offset: $34 (52)        ; routine to call when buffer is complete
  741. refCon                     ds.l    1                ; offset: $38 (56)        ; user refcon
  742. result                     ds.w    1                ; offset: $3C (60)        ; result
  743. sizeof                     EQU *                    ; size:   $3E (62)
  744.                         ENDR
  745. CompressionInfo            RECORD 0
  746. recordSize                 ds.l    1                ; offset: $0 (0)
  747. format                     ds.l    1                ; offset: $4 (4)
  748. compressionID             ds.w    1                ; offset: $8 (8)
  749. samplesPerPacket         ds.w    1                ; offset: $A (10)
  750. bytesPerPacket             ds.w    1                ; offset: $C (12)
  751. bytesPerFrame             ds.w    1                ; offset: $E (14)
  752. bytesPerSample             ds.w    1                ; offset: $10 (16)
  753. futureUse1                 ds.w    1                ; offset: $12 (18)
  754. sizeof                     EQU *                    ; size:   $14 (20)
  755.                         ENDR
  756. ; typedef struct CompressionInfo *        CompressionInfoPtr
  757.  
  758. ; typedef CompressionInfoPtr *            CompressionInfoHandle
  759.  
  760. ; variables for floating point conversion
  761. SoundSlopeAndInterceptRecord RECORD 0
  762. slope                     ds        Float64            ; offset: $0 (0)
  763. intercept                 ds        Float64            ; offset: $8 (8)
  764. minClip                     ds        Float64            ; offset: $10 (16)
  765. maxClip                     ds        Float64            ; offset: $18 (24)
  766. sizeof                     EQU *                    ; size:   $20 (32)
  767.                         ENDR
  768. ; typedef struct SoundSlopeAndInterceptRecord * SoundSlopeAndInterceptPtr
  769.  
  770. ; private thing to use as a reference to a Sound Converter
  771.  
  772.  
  773. ; private thing to use as a reference to a Sound Source
  774.  
  775.  
  776. ; typedef SoundSource *                    SoundSourcePtr
  777.  
  778. SoundComponentLink        RECORD 0
  779. description                 ds        ComponentDescription ; offset: $0 (0)    ; Describes the sound component
  780. mixerID                     ds.l    1                ; offset: $14 (20)        ; Reserved by Apple
  781. linkID                     ds.l    1                ; offset: $18 (24)        ; Reserved by Apple
  782. sizeof                     EQU *                    ; size:   $1C (28)
  783.                         ENDR
  784. ; typedef struct SoundComponentLink *    SoundComponentLinkPtr
  785.  
  786. AudioInfo                RECORD 0
  787. capabilitiesFlags         ds.l    1                ; offset: $0 (0)        ; Describes device capabilities
  788. reserved                 ds.l    1                ; offset: $4 (4)        ; Reserved by Apple
  789. numVolumeSteps             ds.w    1                ; offset: $8 (8)        ; Number of significant increments between min and max volume
  790. sizeof                     EQU *                    ; size:   $A (10)
  791.                         ENDR
  792. ; typedef struct AudioInfo *            AudioInfoPtr
  793.  
  794. AudioFormatAtom            RECORD 0
  795. size                     ds.l    1                ; offset: $0 (0)        ;  = sizeof(AudioFormatAtom)
  796. atomType                 ds.l    1                ; offset: $4 (4)        ;  = kAudioFormatAtomType
  797. format                     ds.l    1                ; offset: $8 (8)
  798. sizeof                     EQU *                    ; size:   $C (12)
  799.                         ENDR
  800. ; typedef struct AudioFormatAtom *        AudioFormatAtomPtr
  801.  
  802. AudioEndianAtom            RECORD 0
  803. size                     ds.l    1                ; offset: $0 (0)        ;  = sizeof(AudioEndianAtom)
  804. atomType                 ds.l    1                ; offset: $4 (4)        ;  = kAudioEndianAtomType
  805. littleEndian             ds.w    1                ; offset: $8 (8)
  806. sizeof                     EQU *                    ; size:   $A (10)
  807.                         ENDR
  808. ; typedef struct AudioEndianAtom *        AudioEndianAtomPtr
  809.  
  810. AudioTerminatorAtom        RECORD 0
  811. size                     ds.l    1                ; offset: $0 (0)        ;  = sizeof(AudioTerminatorAtom)
  812. atomType                 ds.l    1                ; offset: $4 (4)        ;  = kAudioTerminatorAtomType
  813. sizeof                     EQU *                    ; size:   $8 (8)
  814.                         ENDR
  815. ; typedef struct AudioTerminatorAtom *    AudioTerminatorAtomPtr
  816.  
  817. ;  Sound Input Structures
  818.  
  819.  
  820. ; typedef SPB *                            SPBPtr
  821.  
  822. ; user procedures called by sound input routines
  823. ; Sound Input Parameter Block
  824. SPB                        RECORD 0
  825. inRefNum                 ds.l    1                ; offset: $0 (0)        ; reference number of sound input device
  826. count                     ds.l    1                ; offset: $4 (4)        ; number of bytes to record
  827. milliseconds             ds.l    1                ; offset: $8 (8)        ; number of milliseconds to record
  828. bufferLength             ds.l    1                ; offset: $C (12)        ; length of buffer in bytes
  829. bufferPtr                 ds.l    1                ; offset: $10 (16)        ; buffer to store sound data in
  830. completionRoutine         ds.l    1                ; offset: $14 (20)        ; completion routine
  831. interruptRoutine         ds.l    1                ; offset: $18 (24)        ; interrupt routine
  832. userLong                 ds.l    1                ; offset: $1C (28)        ; user-defined field
  833. error                     ds.w    1                ; offset: $20 (32)        ; error
  834. unused1                     ds.l    1                ; offset: $22 (34)        ; reserved - must be zero
  835. sizeof                     EQU *                    ; size:   $26 (38)
  836.                         ENDR
  837.  
  838. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  839. ;   prototypes
  840. ;  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  841.  
  842.  
  843.  
  844.  
  845. ;   These two routines for Get/SetSoundVol should no longer be used.
  846. ;   They were for old Apple Sound Chip machines, and do not support the DSP or PowerMacs.
  847. ;   Use Get/SetDefaultOutputVolume instead, if you must change the user's machine.
  848.  
  849.  
  850.  
  851.     IF TARGET_CPU_68K ** TARGET_CPU_68K THEN
  852. ;
  853. ; pascal void SetSoundVol(short level)
  854. ;
  855.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  856.         IMPORT_CFM_FUNCTION SetSoundVol
  857.     ENDIF
  858.  
  859.  
  860. ;
  861. ; pascal void GetSoundVol(short *level)
  862. ;
  863.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  864.         ; parameters:
  865.         ;    level           => A0
  866.         Macro
  867.         _GetSoundVol
  868.             clr.b               (A0)+
  869.             move.b              $0260,(A0)
  870.         EndM
  871.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  872.         IMPORT_CFM_FUNCTION GetSoundVol
  873.     ENDIF
  874.  
  875.     ENDIF
  876. ;  Sound Manager routines 
  877. ;
  878. ; pascal void SysBeep(short duration)
  879. ;
  880.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  881.         _SysBeep:    OPWORD    $A9C8
  882.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  883.         IMPORT_CFM_FUNCTION SysBeep
  884.     ENDIF
  885.  
  886. ;
  887. ; pascal OSErr SndDoCommand(SndChannelPtr chan, const SndCommand *cmd, Boolean noWait)
  888. ;
  889.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  890.         _SndDoCommand:    OPWORD    $A803
  891.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  892.         IMPORT_CFM_FUNCTION SndDoCommand
  893.     ENDIF
  894.  
  895. ;
  896. ; pascal OSErr SndDoImmediate(SndChannelPtr chan, const SndCommand *cmd)
  897. ;
  898.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  899.         _SndDoImmediate:    OPWORD    $A804
  900.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  901.         IMPORT_CFM_FUNCTION SndDoImmediate
  902.     ENDIF
  903.  
  904. ;
  905. ; pascal OSErr SndNewChannel(SndChannelPtr *chan, short synth, long init, SndCallBackUPP userRoutine)
  906. ;
  907.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  908.         _SndNewChannel:    OPWORD    $A807
  909.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  910.         IMPORT_CFM_FUNCTION SndNewChannel
  911.     ENDIF
  912.  
  913. ;
  914. ; pascal OSErr SndDisposeChannel(SndChannelPtr chan, Boolean quietNow)
  915. ;
  916.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  917.         _SndDisposeChannel:    OPWORD    $A801
  918.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  919.         IMPORT_CFM_FUNCTION SndDisposeChannel
  920.     ENDIF
  921.  
  922. ;
  923. ; pascal OSErr SndPlay(SndChannelPtr chan, SndListHandle sndHandle, Boolean async)
  924. ;
  925.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  926.         _SndPlay:    OPWORD    $A805
  927.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  928.         IMPORT_CFM_FUNCTION SndPlay
  929.     ENDIF
  930.  
  931.     IF OLDROUTINENAMES THEN
  932. ;
  933. ; pascal OSErr SndAddModifier(SndChannelPtr chan, Ptr modifier, short id, long init)
  934. ;
  935.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  936.         _SndAddModifier:    OPWORD    $A802
  937.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  938.         IMPORT_CFM_FUNCTION SndAddModifier
  939.     ENDIF
  940.  
  941.     ENDIF    ; OLDROUTINENAMES
  942. ;
  943. ; pascal OSErr SndControl(short id, SndCommand *cmd)
  944. ;
  945.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  946.         _SndControl:    OPWORD    $A806
  947.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  948.         IMPORT_CFM_FUNCTION SndControl
  949.     ENDIF
  950.  
  951. ;  Sound Manager 2.0 and later, uses _SoundDispatch 
  952. ;
  953. ; pascal NumVersion SndSoundManagerVersion(void )
  954. ;
  955.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  956.         Macro
  957.         _SndSoundManagerVersion
  958.             move.l              #$000C0008,D0
  959.             dc.w                $A800
  960.         EndM
  961.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  962.         IMPORT_CFM_FUNCTION SndSoundManagerVersion
  963.     ENDIF
  964.  
  965. ;
  966. ; pascal OSErr SndStartFilePlay(SndChannelPtr chan, short fRefNum, short resNum, long bufferSize, void *theBuffer, AudioSelectionPtr theSelection, FilePlayCompletionUPP theCompletion, Boolean async)
  967. ;
  968.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  969.         Macro
  970.         _SndStartFilePlay
  971.             move.l              #$0D000008,D0
  972.             dc.w                $A800
  973.         EndM
  974.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  975.         IMPORT_CFM_FUNCTION SndStartFilePlay
  976.     ENDIF
  977.  
  978. ;
  979. ; pascal OSErr SndPauseFilePlay(SndChannelPtr chan)
  980. ;
  981.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  982.         Macro
  983.         _SndPauseFilePlay
  984.             move.l              #$02040008,D0
  985.             dc.w                $A800
  986.         EndM
  987.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  988.         IMPORT_CFM_FUNCTION SndPauseFilePlay
  989.     ENDIF
  990.  
  991. ;
  992. ; pascal OSErr SndStopFilePlay(SndChannelPtr chan, Boolean quietNow)
  993. ;
  994.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  995.         Macro
  996.         _SndStopFilePlay
  997.             move.l              #$03080008,D0
  998.             dc.w                $A800
  999.         EndM
  1000.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1001.         IMPORT_CFM_FUNCTION SndStopFilePlay
  1002.     ENDIF
  1003.  
  1004. ;
  1005. ; pascal OSErr SndChannelStatus(SndChannelPtr chan, short theLength, SCStatusPtr theStatus)
  1006. ;
  1007.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1008.         Macro
  1009.         _SndChannelStatus
  1010.             move.l              #$05100008,D0
  1011.             dc.w                $A800
  1012.         EndM
  1013.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1014.         IMPORT_CFM_FUNCTION SndChannelStatus
  1015.     ENDIF
  1016.  
  1017. ;
  1018. ; pascal OSErr SndManagerStatus(short theLength, SMStatusPtr theStatus)
  1019. ;
  1020.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1021.         Macro
  1022.         _SndManagerStatus
  1023.             move.l              #$03140008,D0
  1024.             dc.w                $A800
  1025.         EndM
  1026.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1027.         IMPORT_CFM_FUNCTION SndManagerStatus
  1028.     ENDIF
  1029.  
  1030. ;
  1031. ; pascal void SndGetSysBeepState(short *sysBeepState)
  1032. ;
  1033.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1034.         Macro
  1035.         _SndGetSysBeepState
  1036.             move.l              #$02180008,D0
  1037.             dc.w                $A800
  1038.         EndM
  1039.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1040.         IMPORT_CFM_FUNCTION SndGetSysBeepState
  1041.     ENDIF
  1042.  
  1043. ;
  1044. ; pascal OSErr SndSetSysBeepState(short sysBeepState)
  1045. ;
  1046.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1047.         Macro
  1048.         _SndSetSysBeepState
  1049.             move.l              #$011C0008,D0
  1050.             dc.w                $A800
  1051.         EndM
  1052.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1053.         IMPORT_CFM_FUNCTION SndSetSysBeepState
  1054.     ENDIF
  1055.  
  1056. ;
  1057. ; pascal OSErr SndPlayDoubleBuffer(SndChannelPtr chan, SndDoubleBufferHeaderPtr theParams)
  1058. ;
  1059.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1060.         Macro
  1061.         _SndPlayDoubleBuffer
  1062.             move.l              #$04200008,D0
  1063.             dc.w                $A800
  1064.         EndM
  1065.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1066.         IMPORT_CFM_FUNCTION SndPlayDoubleBuffer
  1067.     ENDIF
  1068.  
  1069. ;  MACE compression routines, uses _SoundDispatch 
  1070. ;
  1071. ; pascal NumVersion MACEVersion(void )
  1072. ;
  1073.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1074.         Macro
  1075.         _MACEVersion
  1076.             move.l              #$00000010,D0
  1077.             dc.w                $A800
  1078.         EndM
  1079.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1080.         IMPORT_CFM_FUNCTION MACEVersion
  1081.     ENDIF
  1082.  
  1083. ;
  1084. ; pascal void Comp3to1(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1085. ;
  1086.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1087.         Macro
  1088.         _Comp3to1
  1089.             move.l              #$00040010,D0
  1090.             dc.w                $A800
  1091.         EndM
  1092.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1093.         IMPORT_CFM_FUNCTION Comp3to1
  1094.     ENDIF
  1095.  
  1096. ;
  1097. ; pascal void Exp1to3(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1098. ;
  1099.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1100.         Macro
  1101.         _Exp1to3
  1102.             move.l              #$00080010,D0
  1103.             dc.w                $A800
  1104.         EndM
  1105.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1106.         IMPORT_CFM_FUNCTION Exp1to3
  1107.     ENDIF
  1108.  
  1109. ;
  1110. ; pascal void Comp6to1(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1111. ;
  1112.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1113.         Macro
  1114.         _Comp6to1
  1115.             move.l              #$000C0010,D0
  1116.             dc.w                $A800
  1117.         EndM
  1118.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1119.         IMPORT_CFM_FUNCTION Comp6to1
  1120.     ENDIF
  1121.  
  1122. ;
  1123. ; pascal void Exp1to6(const void *inBuffer, void *outBuffer, unsigned long cnt, StateBlockPtr inState, StateBlockPtr outState, unsigned long numChannels, unsigned long whichChannel)
  1124. ;
  1125.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1126.         Macro
  1127.         _Exp1to6
  1128.             move.l              #$00100010,D0
  1129.             dc.w                $A800
  1130.         EndM
  1131.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1132.         IMPORT_CFM_FUNCTION Exp1to6
  1133.     ENDIF
  1134.  
  1135. ;  Sound Manager 3.0 and later calls, uses _SoundDispatch 
  1136. ;
  1137. ; pascal OSErr GetSysBeepVolume(long *level)
  1138. ;
  1139.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1140.         Macro
  1141.         _GetSysBeepVolume
  1142.             move.l              #$02240018,D0
  1143.             dc.w                $A800
  1144.         EndM
  1145.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1146.         IMPORT_CFM_FUNCTION GetSysBeepVolume
  1147.     ENDIF
  1148.  
  1149. ;
  1150. ; pascal OSErr SetSysBeepVolume(long level)
  1151. ;
  1152.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1153.         Macro
  1154.         _SetSysBeepVolume
  1155.             move.l              #$02280018,D0
  1156.             dc.w                $A800
  1157.         EndM
  1158.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1159.         IMPORT_CFM_FUNCTION SetSysBeepVolume
  1160.     ENDIF
  1161.  
  1162. ;
  1163. ; pascal OSErr GetDefaultOutputVolume(long *level)
  1164. ;
  1165.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1166.         Macro
  1167.         _GetDefaultOutputVolume
  1168.             move.l              #$022C0018,D0
  1169.             dc.w                $A800
  1170.         EndM
  1171.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1172.         IMPORT_CFM_FUNCTION GetDefaultOutputVolume
  1173.     ENDIF
  1174.  
  1175. ;
  1176. ; pascal OSErr SetDefaultOutputVolume(long level)
  1177. ;
  1178.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1179.         Macro
  1180.         _SetDefaultOutputVolume
  1181.             move.l              #$02300018,D0
  1182.             dc.w                $A800
  1183.         EndM
  1184.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1185.         IMPORT_CFM_FUNCTION SetDefaultOutputVolume
  1186.     ENDIF
  1187.  
  1188. ;
  1189. ; pascal OSErr GetSoundHeaderOffset(SndListHandle sndHandle, long *offset)
  1190. ;
  1191.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1192.         Macro
  1193.         _GetSoundHeaderOffset
  1194.             move.l              #$04040018,D0
  1195.             dc.w                $A800
  1196.         EndM
  1197.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1198.         IMPORT_CFM_FUNCTION GetSoundHeaderOffset
  1199.     ENDIF
  1200.  
  1201. ;
  1202. ; pascal UnsignedFixed UnsignedFixedMulDiv(UnsignedFixed value, UnsignedFixed multiplier, UnsignedFixed divisor)
  1203. ;
  1204.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1205.         Macro
  1206.         _UnsignedFixedMulDiv
  1207.             move.l              #$060C0018,D0
  1208.             dc.w                $A800
  1209.         EndM
  1210.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1211.         IMPORT_CFM_FUNCTION UnsignedFixedMulDiv
  1212.     ENDIF
  1213.  
  1214. ;
  1215. ; pascal OSErr GetCompressionInfo(short compressionID, OSType format, short numChannels, short sampleSize, CompressionInfoPtr cp)
  1216. ;
  1217.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1218.         Macro
  1219.         _GetCompressionInfo
  1220.             move.l              #$07100018,D0
  1221.             dc.w                $A800
  1222.         EndM
  1223.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1224.         IMPORT_CFM_FUNCTION GetCompressionInfo
  1225.     ENDIF
  1226.  
  1227. ;
  1228. ; pascal OSErr SetSoundPreference(OSType theType, Str255 name, Handle settings)
  1229. ;
  1230.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1231.         Macro
  1232.         _SetSoundPreference
  1233.             move.l              #$06340018,D0
  1234.             dc.w                $A800
  1235.         EndM
  1236.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1237.         IMPORT_CFM_FUNCTION SetSoundPreference
  1238.     ENDIF
  1239.  
  1240. ;
  1241. ; pascal OSErr GetSoundPreference(OSType theType, Str255 name, Handle settings)
  1242. ;
  1243.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1244.         Macro
  1245.         _GetSoundPreference
  1246.             move.l              #$06380018,D0
  1247.             dc.w                $A800
  1248.         EndM
  1249.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1250.         IMPORT_CFM_FUNCTION GetSoundPreference
  1251.     ENDIF
  1252.  
  1253. ;
  1254. ; pascal OSErr OpenMixerSoundComponent(SoundComponentDataPtr outputDescription, long outputFlags, ComponentInstance *mixerComponent)
  1255. ;
  1256.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1257.         Macro
  1258.         _OpenMixerSoundComponent
  1259.             move.l              #$06140018,D0
  1260.             dc.w                $A800
  1261.         EndM
  1262.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1263.         IMPORT_CFM_FUNCTION OpenMixerSoundComponent
  1264.     ENDIF
  1265.  
  1266. ;
  1267. ; pascal OSErr CloseMixerSoundComponent(ComponentInstance ci)
  1268. ;
  1269.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1270.         Macro
  1271.         _CloseMixerSoundComponent
  1272.             move.l              #$02180018,D0
  1273.             dc.w                $A800
  1274.         EndM
  1275.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1276.         IMPORT_CFM_FUNCTION CloseMixerSoundComponent
  1277.     ENDIF
  1278.  
  1279. ;  Sound Manager 3.1 and later calls, uses _SoundDispatch 
  1280. ;
  1281. ; pascal OSErr SndGetInfo(SndChannelPtr chan, OSType selector, void *infoPtr)
  1282. ;
  1283.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1284.         Macro
  1285.         _SndGetInfo
  1286.             move.l              #$063C0018,D0
  1287.             dc.w                $A800
  1288.         EndM
  1289.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1290.         IMPORT_CFM_FUNCTION SndGetInfo
  1291.     ENDIF
  1292.  
  1293. ;
  1294. ; pascal OSErr SndSetInfo(SndChannelPtr chan, OSType selector, const void *infoPtr)
  1295. ;
  1296.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1297.         Macro
  1298.         _SndSetInfo
  1299.             move.l              #$06400018,D0
  1300.             dc.w                $A800
  1301.         EndM
  1302.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1303.         IMPORT_CFM_FUNCTION SndSetInfo
  1304.     ENDIF
  1305.  
  1306. ;
  1307. ; pascal OSErr GetSoundOutputInfo(Component outputDevice, OSType selector, void *infoPtr)
  1308. ;
  1309.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1310.         Macro
  1311.         _GetSoundOutputInfo
  1312.             move.l              #$06440018,D0
  1313.             dc.w                $A800
  1314.         EndM
  1315.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1316.         IMPORT_CFM_FUNCTION GetSoundOutputInfo
  1317.     ENDIF
  1318.  
  1319. ;
  1320. ; pascal OSErr SetSoundOutputInfo(Component outputDevice, OSType selector, const void *infoPtr)
  1321. ;
  1322.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1323.         Macro
  1324.         _SetSoundOutputInfo
  1325.             move.l              #$06480018,D0
  1326.             dc.w                $A800
  1327.         EndM
  1328.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1329.         IMPORT_CFM_FUNCTION SetSoundOutputInfo
  1330.     ENDIF
  1331.  
  1332. ;  Sound Manager 3.2 and later calls, uses _SoundDispatch 
  1333. ;
  1334. ; pascal OSErr GetCompressionName(OSType compressionType, Str255 compressionName)
  1335. ;
  1336.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1337.         Macro
  1338.         _GetCompressionName
  1339.             move.l              #$044C0018,D0
  1340.             dc.w                $A800
  1341.         EndM
  1342.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1343.         IMPORT_CFM_FUNCTION GetCompressionName
  1344.     ENDIF
  1345.  
  1346. ;
  1347. ; pascal OSErr SoundConverterOpen(const SoundComponentData *inputFormat, const SoundComponentData *outputFormat, SoundConverter *sc)
  1348. ;
  1349.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1350.         Macro
  1351.         _SoundConverterOpen
  1352.             move.l              #$06500018,D0
  1353.             dc.w                $A800
  1354.         EndM
  1355.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1356.         IMPORT_CFM_FUNCTION SoundConverterOpen
  1357.     ENDIF
  1358.  
  1359. ;
  1360. ; pascal OSErr SoundConverterClose(SoundConverter sc)
  1361. ;
  1362.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1363.         Macro
  1364.         _SoundConverterClose
  1365.             move.l              #$02540018,D0
  1366.             dc.w                $A800
  1367.         EndM
  1368.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1369.         IMPORT_CFM_FUNCTION SoundConverterClose
  1370.     ENDIF
  1371.  
  1372. ;
  1373. ; pascal OSErr SoundConverterGetBufferSizes(SoundConverter sc, unsigned long inputBytesTarget, unsigned long *inputFrames, unsigned long *inputBytes, unsigned long *outputBytes)
  1374. ;
  1375.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1376.         Macro
  1377.         _SoundConverterGetBufferSizes
  1378.             move.l              #$0A580018,D0
  1379.             dc.w                $A800
  1380.         EndM
  1381.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1382.         IMPORT_CFM_FUNCTION SoundConverterGetBufferSizes
  1383.     ENDIF
  1384.  
  1385. ;
  1386. ; pascal OSErr SoundConverterBeginConversion(SoundConverter sc)
  1387. ;
  1388.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1389.         Macro
  1390.         _SoundConverterBeginConversion
  1391.             move.l              #$025C0018,D0
  1392.             dc.w                $A800
  1393.         EndM
  1394.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1395.         IMPORT_CFM_FUNCTION SoundConverterBeginConversion
  1396.     ENDIF
  1397.  
  1398. ;
  1399. ; pascal OSErr SoundConverterConvertBuffer(SoundConverter sc, const void *inputPtr, unsigned long inputFrames, void *outputPtr, unsigned long *outputFrames, unsigned long *outputBytes)
  1400. ;
  1401.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1402.         Macro
  1403.         _SoundConverterConvertBuffer
  1404.             move.l              #$0C600018,D0
  1405.             dc.w                $A800
  1406.         EndM
  1407.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1408.         IMPORT_CFM_FUNCTION SoundConverterConvertBuffer
  1409.     ENDIF
  1410.  
  1411. ;
  1412. ; pascal OSErr SoundConverterEndConversion(SoundConverter sc, void *outputPtr, unsigned long *outputFrames, unsigned long *outputBytes)
  1413. ;
  1414.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1415.         Macro
  1416.         _SoundConverterEndConversion
  1417.             move.l              #$08640018,D0
  1418.             dc.w                $A800
  1419.         EndM
  1420.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1421.         IMPORT_CFM_FUNCTION SoundConverterEndConversion
  1422.     ENDIF
  1423.  
  1424. ;  Sound Manager 3.3 and later calls, uses _SoundDispatch 
  1425. ;
  1426. ; pascal OSErr SoundConverterGetInfo(SoundConverter sc, OSType selector, void *infoPtr)
  1427. ;
  1428.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1429.         Macro
  1430.         _SoundConverterGetInfo
  1431.             move.l              #$06680018,D0
  1432.             dc.w                $A800
  1433.         EndM
  1434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1435.         IMPORT_CFM_FUNCTION SoundConverterGetInfo
  1436.     ENDIF
  1437.  
  1438. ;
  1439. ; pascal OSErr SoundConverterSetInfo(SoundConverter sc, OSType selector, void *infoPtr)
  1440. ;
  1441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1442.         Macro
  1443.         _SoundConverterSetInfo
  1444.             move.l              #$066C0018,D0
  1445.             dc.w                $A800
  1446.         EndM
  1447.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1448.         IMPORT_CFM_FUNCTION SoundConverterSetInfo
  1449.     ENDIF
  1450.  
  1451.  
  1452. ;  Sound Component Functions
  1453. ;   basic sound component functions
  1454.  
  1455.  
  1456.  
  1457. ;
  1458. ; pascal ComponentResult SoundComponentInitOutputDevice(ComponentInstance ti, long actions)
  1459. ;
  1460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1461.         Macro
  1462.         _SoundComponentInitOutputDevice
  1463.             move.l              #$00040001,-(sp)
  1464.             moveq               #0,D0
  1465.             dc.w                $A82A
  1466.         EndM
  1467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1468.         IMPORT_CFM_FUNCTION SoundComponentInitOutputDevice
  1469.     ENDIF
  1470.  
  1471. ;
  1472. ; pascal ComponentResult SoundComponentSetSource(ComponentInstance ti, SoundSource sourceID, ComponentInstance source)
  1473. ;
  1474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1475.         Macro
  1476.         _SoundComponentSetSource
  1477.             move.l              #$00080002,-(sp)
  1478.             moveq               #0,D0
  1479.             dc.w                $A82A
  1480.         EndM
  1481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1482.         IMPORT_CFM_FUNCTION SoundComponentSetSource
  1483.     ENDIF
  1484.  
  1485. ;
  1486. ; pascal ComponentResult SoundComponentGetSource(ComponentInstance ti, SoundSource sourceID, ComponentInstance *source)
  1487. ;
  1488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1489.         Macro
  1490.         _SoundComponentGetSource
  1491.             move.l              #$00080003,-(sp)
  1492.             moveq               #0,D0
  1493.             dc.w                $A82A
  1494.         EndM
  1495.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1496.         IMPORT_CFM_FUNCTION SoundComponentGetSource
  1497.     ENDIF
  1498.  
  1499. ;
  1500. ; pascal ComponentResult SoundComponentGetSourceData(ComponentInstance ti, SoundComponentDataPtr *sourceData)
  1501. ;
  1502.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1503.         Macro
  1504.         _SoundComponentGetSourceData
  1505.             move.l              #$00040004,-(sp)
  1506.             moveq               #0,D0
  1507.             dc.w                $A82A
  1508.         EndM
  1509.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1510.         IMPORT_CFM_FUNCTION SoundComponentGetSourceData
  1511.     ENDIF
  1512.  
  1513. ;
  1514. ; pascal ComponentResult SoundComponentSetOutput(ComponentInstance ti, SoundComponentDataPtr requested, SoundComponentDataPtr *actual)
  1515. ;
  1516.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1517.         Macro
  1518.         _SoundComponentSetOutput
  1519.             move.l              #$00080005,-(sp)
  1520.             moveq               #0,D0
  1521.             dc.w                $A82A
  1522.         EndM
  1523.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1524.         IMPORT_CFM_FUNCTION SoundComponentSetOutput
  1525.     ENDIF
  1526.  
  1527. ;  junction methods for the mixer, must be called at non-interrupt level
  1528. ;
  1529. ; pascal ComponentResult SoundComponentAddSource(ComponentInstance ti, SoundSource *sourceID)
  1530. ;
  1531.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1532.         Macro
  1533.         _SoundComponentAddSource
  1534.             move.l              #$00040101,-(sp)
  1535.             moveq               #0,D0
  1536.             dc.w                $A82A
  1537.         EndM
  1538.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1539.         IMPORT_CFM_FUNCTION SoundComponentAddSource
  1540.     ENDIF
  1541.  
  1542. ;
  1543. ; pascal ComponentResult SoundComponentRemoveSource(ComponentInstance ti, SoundSource sourceID)
  1544. ;
  1545.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1546.         Macro
  1547.         _SoundComponentRemoveSource
  1548.             move.l              #$00040102,-(sp)
  1549.             moveq               #0,D0
  1550.             dc.w                $A82A
  1551.         EndM
  1552.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1553.         IMPORT_CFM_FUNCTION SoundComponentRemoveSource
  1554.     ENDIF
  1555.  
  1556. ;  info methods
  1557. ;
  1558. ; pascal ComponentResult SoundComponentGetInfo(ComponentInstance ti, SoundSource sourceID, OSType selector, void *infoPtr)
  1559. ;
  1560.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1561.         Macro
  1562.         _SoundComponentGetInfo
  1563.             move.l              #$000C0103,-(sp)
  1564.             moveq               #0,D0
  1565.             dc.w                $A82A
  1566.         EndM
  1567.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1568.         IMPORT_CFM_FUNCTION SoundComponentGetInfo
  1569.     ENDIF
  1570.  
  1571. ;
  1572. ; pascal ComponentResult SoundComponentSetInfo(ComponentInstance ti, SoundSource sourceID, OSType selector, void *infoPtr)
  1573. ;
  1574.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1575.         Macro
  1576.         _SoundComponentSetInfo
  1577.             move.l              #$000C0104,-(sp)
  1578.             moveq               #0,D0
  1579.             dc.w                $A82A
  1580.         EndM
  1581.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1582.         IMPORT_CFM_FUNCTION SoundComponentSetInfo
  1583.     ENDIF
  1584.  
  1585. ;  control methods
  1586. ;
  1587. ; pascal ComponentResult SoundComponentStartSource(ComponentInstance ti, short count, SoundSource *sources)
  1588. ;
  1589.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1590.         Macro
  1591.         _SoundComponentStartSource
  1592.             move.l              #$00060105,-(sp)
  1593.             moveq               #0,D0
  1594.             dc.w                $A82A
  1595.         EndM
  1596.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1597.         IMPORT_CFM_FUNCTION SoundComponentStartSource
  1598.     ENDIF
  1599.  
  1600. ;
  1601. ; pascal ComponentResult SoundComponentStopSource(ComponentInstance ti, short count, SoundSource *sources)
  1602. ;
  1603.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1604.         Macro
  1605.         _SoundComponentStopSource
  1606.             move.l              #$00060106,-(sp)
  1607.             moveq               #0,D0
  1608.             dc.w                $A82A
  1609.         EndM
  1610.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1611.         IMPORT_CFM_FUNCTION SoundComponentStopSource
  1612.     ENDIF
  1613.  
  1614. ;
  1615. ; pascal ComponentResult SoundComponentPauseSource(ComponentInstance ti, short count, SoundSource *sources)
  1616. ;
  1617.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1618.         Macro
  1619.         _SoundComponentPauseSource
  1620.             move.l              #$00060107,-(sp)
  1621.             moveq               #0,D0
  1622.             dc.w                $A82A
  1623.         EndM
  1624.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1625.         IMPORT_CFM_FUNCTION SoundComponentPauseSource
  1626.     ENDIF
  1627.  
  1628. ;
  1629. ; pascal ComponentResult SoundComponentPlaySourceBuffer(ComponentInstance ti, SoundSource sourceID, SoundParamBlockPtr pb, long actions)
  1630. ;
  1631.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1632.         Macro
  1633.         _SoundComponentPlaySourceBuffer
  1634.             move.l              #$000C0108,-(sp)
  1635.             moveq               #0,D0
  1636.             dc.w                $A82A
  1637.         EndM
  1638.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1639.         IMPORT_CFM_FUNCTION SoundComponentPlaySourceBuffer
  1640.     ENDIF
  1641.  
  1642. ; Audio Components
  1643. ; Volume is described as a value between 0 and 1, with 0 indicating minimum
  1644. ;  volume and 1 indicating maximum volume; if the device doesn't support
  1645. ;  software control of volume, then a value of unimpErr is returned, indicating
  1646. ;  that these functions are not supported by the device
  1647.  
  1648. ;
  1649. ; pascal ComponentResult AudioGetVolume(ComponentInstance ac, short whichChannel, ShortFixed *volume)
  1650. ;
  1651.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1652.         Macro
  1653.         _AudioGetVolume
  1654.             move.l              #$00060000,-(sp)
  1655.             moveq               #0,D0
  1656.             dc.w                $A82A
  1657.         EndM
  1658.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1659.         IMPORT_CFM_FUNCTION AudioGetVolume
  1660.     ENDIF
  1661.  
  1662. ;
  1663. ; pascal ComponentResult AudioSetVolume(ComponentInstance ac, short whichChannel, ShortFixed volume)
  1664. ;
  1665.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1666.         Macro
  1667.         _AudioSetVolume
  1668.             move.l              #$00040001,-(sp)
  1669.             moveq               #0,D0
  1670.             dc.w                $A82A
  1671.         EndM
  1672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1673.         IMPORT_CFM_FUNCTION AudioSetVolume
  1674.     ENDIF
  1675.  
  1676. ; If the device doesn't support software control of mute, then a value of unimpErr is
  1677. ;returned, indicating that these functions are not supported by the device.
  1678. ;
  1679. ; pascal ComponentResult AudioGetMute(ComponentInstance ac, short whichChannel, short *mute)
  1680. ;
  1681.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1682.         Macro
  1683.         _AudioGetMute
  1684.             move.l              #$00060002,-(sp)
  1685.             moveq               #0,D0
  1686.             dc.w                $A82A
  1687.         EndM
  1688.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1689.         IMPORT_CFM_FUNCTION AudioGetMute
  1690.     ENDIF
  1691.  
  1692. ;
  1693. ; pascal ComponentResult AudioSetMute(ComponentInstance ac, short whichChannel, short mute)
  1694. ;
  1695.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1696.         Macro
  1697.         _AudioSetMute
  1698.             move.l              #$00040003,-(sp)
  1699.             moveq               #0,D0
  1700.             dc.w                $A82A
  1701.         EndM
  1702.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1703.         IMPORT_CFM_FUNCTION AudioSetMute
  1704.     ENDIF
  1705.  
  1706. ; AudioSetToDefaults causes the associated device to reset its volume and mute values
  1707. ;(and perhaps other characteristics, e.g. attenuation) to "factory default" settings
  1708. ;
  1709. ; pascal ComponentResult AudioSetToDefaults(ComponentInstance ac)
  1710. ;
  1711.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1712.         Macro
  1713.         _AudioSetToDefaults
  1714.             move.l              #$00000004,-(sp)
  1715.             moveq               #0,D0
  1716.             dc.w                $A82A
  1717.         EndM
  1718.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1719.         IMPORT_CFM_FUNCTION AudioSetToDefaults
  1720.     ENDIF
  1721.  
  1722. ; This routine is required; it must be implemented by all audio components
  1723.  
  1724. ;
  1725. ; pascal ComponentResult AudioGetInfo(ComponentInstance ac, AudioInfoPtr info)
  1726. ;
  1727.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1728.         Macro
  1729.         _AudioGetInfo
  1730.             move.l              #$00040005,-(sp)
  1731.             moveq               #0,D0
  1732.             dc.w                $A82A
  1733.         EndM
  1734.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1735.         IMPORT_CFM_FUNCTION AudioGetInfo
  1736.     ENDIF
  1737.  
  1738. ;
  1739. ; pascal ComponentResult AudioGetBass(ComponentInstance ac, short whichChannel, short *bass)
  1740. ;
  1741.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1742.         Macro
  1743.         _AudioGetBass
  1744.             move.l              #$00060006,-(sp)
  1745.             moveq               #0,D0
  1746.             dc.w                $A82A
  1747.         EndM
  1748.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1749.         IMPORT_CFM_FUNCTION AudioGetBass
  1750.     ENDIF
  1751.  
  1752. ;
  1753. ; pascal ComponentResult AudioSetBass(ComponentInstance ac, short whichChannel, short bass)
  1754. ;
  1755.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1756.         Macro
  1757.         _AudioSetBass
  1758.             move.l              #$00040007,-(sp)
  1759.             moveq               #0,D0
  1760.             dc.w                $A82A
  1761.         EndM
  1762.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1763.         IMPORT_CFM_FUNCTION AudioSetBass
  1764.     ENDIF
  1765.  
  1766. ;
  1767. ; pascal ComponentResult AudioGetTreble(ComponentInstance ac, short whichChannel, short *Treble)
  1768. ;
  1769.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1770.         Macro
  1771.         _AudioGetTreble
  1772.             move.l              #$00060008,-(sp)
  1773.             moveq               #0,D0
  1774.             dc.w                $A82A
  1775.         EndM
  1776.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1777.         IMPORT_CFM_FUNCTION AudioGetTreble
  1778.     ENDIF
  1779.  
  1780. ;
  1781. ; pascal ComponentResult AudioSetTreble(ComponentInstance ac, short whichChannel, short Treble)
  1782. ;
  1783.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1784.         Macro
  1785.         _AudioSetTreble
  1786.             move.l              #$00040009,-(sp)
  1787.             moveq               #0,D0
  1788.             dc.w                $A82A
  1789.         EndM
  1790.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1791.         IMPORT_CFM_FUNCTION AudioSetTreble
  1792.     ENDIF
  1793.  
  1794. ;
  1795. ; pascal ComponentResult AudioGetOutputDevice(ComponentInstance ac, Component *outputDevice)
  1796. ;
  1797.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1798.         Macro
  1799.         _AudioGetOutputDevice
  1800.             move.l              #$0004000A,-(sp)
  1801.             moveq               #0,D0
  1802.             dc.w                $A82A
  1803.         EndM
  1804.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1805.         IMPORT_CFM_FUNCTION AudioGetOutputDevice
  1806.     ENDIF
  1807.  
  1808.  
  1809. ; This is routine is private to the AudioVision component.  It enables the watching of the mute key.
  1810. ;
  1811. ; pascal ComponentResult AudioMuteOnEvent(ComponentInstance ac, short muteOnEvent)
  1812. ;
  1813.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1814.         Macro
  1815.         _AudioMuteOnEvent
  1816.             move.l              #$00020081,-(sp)
  1817.             moveq               #0,D0
  1818.             dc.w                $A82A
  1819.         EndM
  1820.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1821.         IMPORT_CFM_FUNCTION AudioMuteOnEvent
  1822.     ENDIF
  1823.  
  1824.  
  1825. kDelegatedSoundComponentSelectors EQU    $0100
  1826. ;  Sound Input Manager routines, uses _SoundDispatch 
  1827. ;
  1828. ; pascal NumVersion SPBVersion(void )
  1829. ;
  1830.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1831.         Macro
  1832.         _SPBVersion
  1833.             move.l              #$00000014,D0
  1834.             dc.w                $A800
  1835.         EndM
  1836.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1837.         IMPORT_CFM_FUNCTION SPBVersion
  1838.     ENDIF
  1839.  
  1840. ;
  1841. ; pascal OSErr SndRecord(ModalFilterUPP filterProc, Point corner, OSType quality, SndListHandle *sndHandle)
  1842. ;
  1843.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1844.         Macro
  1845.         _SndRecord
  1846.             move.l              #$08040014,D0
  1847.             dc.w                $A800
  1848.         EndM
  1849.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1850.         IMPORT_CFM_FUNCTION SndRecord
  1851.     ENDIF
  1852.  
  1853. ;
  1854. ; pascal OSErr SndRecordToFile(ModalFilterUPP filterProc, Point corner, OSType quality, short fRefNum)
  1855. ;
  1856.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1857.         Macro
  1858.         _SndRecordToFile
  1859.             move.l              #$07080014,D0
  1860.             dc.w                $A800
  1861.         EndM
  1862.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1863.         IMPORT_CFM_FUNCTION SndRecordToFile
  1864.     ENDIF
  1865.  
  1866. ;
  1867. ; pascal OSErr SPBSignInDevice(short deviceRefNum, ConstStr255Param deviceName)
  1868. ;
  1869.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1870.         Macro
  1871.         _SPBSignInDevice
  1872.             move.l              #$030C0014,D0
  1873.             dc.w                $A800
  1874.         EndM
  1875.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1876.         IMPORT_CFM_FUNCTION SPBSignInDevice
  1877.     ENDIF
  1878.  
  1879. ;
  1880. ; pascal OSErr SPBSignOutDevice(short deviceRefNum)
  1881. ;
  1882.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1883.         Macro
  1884.         _SPBSignOutDevice
  1885.             move.l              #$01100014,D0
  1886.             dc.w                $A800
  1887.         EndM
  1888.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1889.         IMPORT_CFM_FUNCTION SPBSignOutDevice
  1890.     ENDIF
  1891.  
  1892. ;
  1893. ; pascal OSErr SPBGetIndexedDevice(short count, Str255 deviceName, Handle *deviceIconHandle)
  1894. ;
  1895.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1896.         Macro
  1897.         _SPBGetIndexedDevice
  1898.             move.l              #$05140014,D0
  1899.             dc.w                $A800
  1900.         EndM
  1901.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1902.         IMPORT_CFM_FUNCTION SPBGetIndexedDevice
  1903.     ENDIF
  1904.  
  1905. ;
  1906. ; pascal OSErr SPBOpenDevice(ConstStr255Param deviceName, short permission, long *inRefNum)
  1907. ;
  1908.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1909.         Macro
  1910.         _SPBOpenDevice
  1911.             move.l              #$05180014,D0
  1912.             dc.w                $A800
  1913.         EndM
  1914.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1915.         IMPORT_CFM_FUNCTION SPBOpenDevice
  1916.     ENDIF
  1917.  
  1918. ;
  1919. ; pascal OSErr SPBCloseDevice(long inRefNum)
  1920. ;
  1921.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1922.         Macro
  1923.         _SPBCloseDevice
  1924.             move.l              #$021C0014,D0
  1925.             dc.w                $A800
  1926.         EndM
  1927.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1928.         IMPORT_CFM_FUNCTION SPBCloseDevice
  1929.     ENDIF
  1930.  
  1931. ;
  1932. ; pascal OSErr SPBRecord(SPBPtr inParamPtr, Boolean asynchFlag)
  1933. ;
  1934.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1935.         Macro
  1936.         _SPBRecord
  1937.             move.l              #$03200014,D0
  1938.             dc.w                $A800
  1939.         EndM
  1940.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1941.         IMPORT_CFM_FUNCTION SPBRecord
  1942.     ENDIF
  1943.  
  1944. ;
  1945. ; pascal OSErr SPBRecordToFile(short fRefNum, SPBPtr inParamPtr, Boolean asynchFlag)
  1946. ;
  1947.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1948.         Macro
  1949.         _SPBRecordToFile
  1950.             move.l              #$04240014,D0
  1951.             dc.w                $A800
  1952.         EndM
  1953.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1954.         IMPORT_CFM_FUNCTION SPBRecordToFile
  1955.     ENDIF
  1956.  
  1957. ;
  1958. ; pascal OSErr SPBPauseRecording(long inRefNum)
  1959. ;
  1960.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1961.         Macro
  1962.         _SPBPauseRecording
  1963.             move.l              #$02280014,D0
  1964.             dc.w                $A800
  1965.         EndM
  1966.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1967.         IMPORT_CFM_FUNCTION SPBPauseRecording
  1968.     ENDIF
  1969.  
  1970. ;
  1971. ; pascal OSErr SPBResumeRecording(long inRefNum)
  1972. ;
  1973.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1974.         Macro
  1975.         _SPBResumeRecording
  1976.             move.l              #$022C0014,D0
  1977.             dc.w                $A800
  1978.         EndM
  1979.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1980.         IMPORT_CFM_FUNCTION SPBResumeRecording
  1981.     ENDIF
  1982.  
  1983. ;
  1984. ; pascal OSErr SPBStopRecording(long inRefNum)
  1985. ;
  1986.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1987.         Macro
  1988.         _SPBStopRecording
  1989.             move.l              #$02300014,D0
  1990.             dc.w                $A800
  1991.         EndM
  1992.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1993.         IMPORT_CFM_FUNCTION SPBStopRecording
  1994.     ENDIF
  1995.  
  1996. ;
  1997. ; pascal OSErr SPBGetRecordingStatus(long inRefNum, short *recordingStatus, short *meterLevel, unsigned long *totalSamplesToRecord, unsigned long *numberOfSamplesRecorded, unsigned long *totalMsecsToRecord, unsigned long *numberOfMsecsRecorded)
  1998. ;
  1999.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2000.         Macro
  2001.         _SPBGetRecordingStatus
  2002.             move.l              #$0E340014,D0
  2003.             dc.w                $A800
  2004.         EndM
  2005.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2006.         IMPORT_CFM_FUNCTION SPBGetRecordingStatus
  2007.     ENDIF
  2008.  
  2009. ;
  2010. ; pascal OSErr SPBGetDeviceInfo(long inRefNum, OSType infoType, void *infoData)
  2011. ;
  2012.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2013.         Macro
  2014.         _SPBGetDeviceInfo
  2015.             move.l              #$06380014,D0
  2016.             dc.w                $A800
  2017.         EndM
  2018.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2019.         IMPORT_CFM_FUNCTION SPBGetDeviceInfo
  2020.     ENDIF
  2021.  
  2022. ;
  2023. ; pascal OSErr SPBSetDeviceInfo(long inRefNum, OSType infoType, void *infoData)
  2024. ;
  2025.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2026.         Macro
  2027.         _SPBSetDeviceInfo
  2028.             move.l              #$063C0014,D0
  2029.             dc.w                $A800
  2030.         EndM
  2031.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2032.         IMPORT_CFM_FUNCTION SPBSetDeviceInfo
  2033.     ENDIF
  2034.  
  2035. ;
  2036. ; pascal OSErr SPBMillisecondsToBytes(long inRefNum, long *milliseconds)
  2037. ;
  2038.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2039.         Macro
  2040.         _SPBMillisecondsToBytes
  2041.             move.l              #$04400014,D0
  2042.             dc.w                $A800
  2043.         EndM
  2044.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2045.         IMPORT_CFM_FUNCTION SPBMillisecondsToBytes
  2046.     ENDIF
  2047.  
  2048. ;
  2049. ; pascal OSErr SPBBytesToMilliseconds(long inRefNum, long *byteCount)
  2050. ;
  2051.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2052.         Macro
  2053.         _SPBBytesToMilliseconds
  2054.             move.l              #$04440014,D0
  2055.             dc.w                $A800
  2056.         EndM
  2057.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2058.         IMPORT_CFM_FUNCTION SPBBytesToMilliseconds
  2059.     ENDIF
  2060.  
  2061. ;
  2062. ; pascal OSErr SetupSndHeader(SndListHandle sndHandle, short numChannels, UnsignedFixed sampleRate, short sampleSize, OSType compressionType, short baseNote, unsigned long numBytes, short *headerLen)
  2063. ;
  2064.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2065.         Macro
  2066.         _SetupSndHeader
  2067.             move.l              #$0D480014,D0
  2068.             dc.w                $A800
  2069.         EndM
  2070.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2071.         IMPORT_CFM_FUNCTION SetupSndHeader
  2072.     ENDIF
  2073.  
  2074. ;
  2075. ; pascal OSErr SetupAIFFHeader(short fRefNum, short numChannels, UnsignedFixed sampleRate, short sampleSize, OSType compressionType, unsigned long numBytes, unsigned long numFrames)
  2076. ;
  2077.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2078.         Macro
  2079.         _SetupAIFFHeader
  2080.             move.l              #$0B4C0014,D0
  2081.             dc.w                $A800
  2082.         EndM
  2083.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2084.         IMPORT_CFM_FUNCTION SetupAIFFHeader
  2085.     ENDIF
  2086.  
  2087. ;  Sound Input Manager 1.1 and later calls, uses _SoundDispatch 
  2088. ;
  2089. ; pascal OSErr ParseAIFFHeader(short fRefNum, SoundComponentData *sndInfo, unsigned long *numFrames, unsigned long *dataOffset)
  2090. ;
  2091.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2092.         Macro
  2093.         _ParseAIFFHeader
  2094.             move.l              #$07580014,D0
  2095.             dc.w                $A800
  2096.         EndM
  2097.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2098.         IMPORT_CFM_FUNCTION ParseAIFFHeader
  2099.     ENDIF
  2100.  
  2101. ;
  2102. ; pascal OSErr ParseSndHeader(SndListHandle sndHandle, SoundComponentData *sndInfo, unsigned long *numFrames, unsigned long *dataOffset)
  2103. ;
  2104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2105.         Macro
  2106.         _ParseSndHeader
  2107.             move.l              #$085C0014,D0
  2108.             dc.w                $A800
  2109.         EndM
  2110.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2111.         IMPORT_CFM_FUNCTION ParseSndHeader
  2112.     ENDIF
  2113.  
  2114.     IF ¬ TARGET_OS_MAC THEN
  2115. ;   Only to be used if you are writing a sound input component; this 
  2116. ;   is the param block for a read request from the SoundMgr to the   
  2117. ;   sound input component.  Not to be confused with the SPB struct   
  2118. ;   above, which is the param block for a read request from an app   
  2119. ;   to the SoundMgr.                                                 
  2120.  
  2121.  
  2122. ; typedef SndInputCmpParam *            SndInputCmpParamPtr
  2123.  
  2124. SndInputCmpParam        RECORD 0
  2125. ioCompletion             ds.l    1                ; offset: $0 (0)        ;  completion routine [pointer]
  2126. ioInterrupt                 ds.l    1                ; offset: $4 (4)        ;  interrupt routine [pointer]
  2127. ioResult                 ds.w    1                ; offset: $8 (8)        ;  I/O result code [word]
  2128. pad                         ds.w    1                ; offset: $A (10)
  2129. ioReqCount                 ds.l    1                ; offset: $C (12)
  2130. ioActCount                 ds.l    1                ; offset: $10 (16)
  2131. ioBuffer                 ds.l    1                ; offset: $14 (20)
  2132. ioMisc                     ds.l    1                ; offset: $18 (24)
  2133. sizeof                     EQU *                    ; size:   $1C (28)
  2134.                         ENDR
  2135. ;
  2136. ; pascal ComponentResult SndInputReadAsync(ComponentInstance self, SndInputCmpParamPtr SICParmPtr)
  2137. ;
  2138.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2139.         Macro
  2140.         _SndInputReadAsync
  2141.             move.l              #$00040001,-(sp)
  2142.             moveq               #0,D0
  2143.             dc.w                $A82A
  2144.         EndM
  2145.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2146.         IMPORT_CFM_FUNCTION SndInputReadAsync
  2147.     ENDIF
  2148.  
  2149. ;
  2150. ; pascal ComponentResult SndInputReadSync(ComponentInstance self, SndInputCmpParamPtr SICParmPtr)
  2151. ;
  2152.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2153.         Macro
  2154.         _SndInputReadSync
  2155.             move.l              #$00040002,-(sp)
  2156.             moveq               #0,D0
  2157.             dc.w                $A82A
  2158.         EndM
  2159.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2160.         IMPORT_CFM_FUNCTION SndInputReadSync
  2161.     ENDIF
  2162.  
  2163. ;
  2164. ; pascal ComponentResult SndInputPauseRecording(ComponentInstance self)
  2165. ;
  2166.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2167.         Macro
  2168.         _SndInputPauseRecording
  2169.             move.l              #$00000003,-(sp)
  2170.             moveq               #0,D0
  2171.             dc.w                $A82A
  2172.         EndM
  2173.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2174.         IMPORT_CFM_FUNCTION SndInputPauseRecording
  2175.     ENDIF
  2176.  
  2177. ;
  2178. ; pascal ComponentResult SndInputResumeRecording(ComponentInstance self)
  2179. ;
  2180.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2181.         Macro
  2182.         _SndInputResumeRecording
  2183.             move.l              #$00000004,-(sp)
  2184.             moveq               #0,D0
  2185.             dc.w                $A82A
  2186.         EndM
  2187.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2188.         IMPORT_CFM_FUNCTION SndInputResumeRecording
  2189.     ENDIF
  2190.  
  2191. ;
  2192. ; pascal ComponentResult SndInputStopRecording(ComponentInstance self)
  2193. ;
  2194.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2195.         Macro
  2196.         _SndInputStopRecording
  2197.             move.l              #$00000005,-(sp)
  2198.             moveq               #0,D0
  2199.             dc.w                $A82A
  2200.         EndM
  2201.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2202.         IMPORT_CFM_FUNCTION SndInputStopRecording
  2203.     ENDIF
  2204.  
  2205. ;
  2206. ; pascal ComponentResult SndInputGetStatus(ComponentInstance self, short *recordingStatus, unsigned long *totalSamplesToRecord, unsigned long *numberOfSamplesRecorded)
  2207. ;
  2208.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2209.         Macro
  2210.         _SndInputGetStatus
  2211.             move.l              #$000C0006,-(sp)
  2212.             moveq               #0,D0
  2213.             dc.w                $A82A
  2214.         EndM
  2215.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2216.         IMPORT_CFM_FUNCTION SndInputGetStatus
  2217.     ENDIF
  2218.  
  2219. ;
  2220. ; pascal ComponentResult SndInputGetDeviceInfo(ComponentInstance self, OSType infoType, void *infoData)
  2221. ;
  2222.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2223.         Macro
  2224.         _SndInputGetDeviceInfo
  2225.             move.l              #$00080007,-(sp)
  2226.             moveq               #0,D0
  2227.             dc.w                $A82A
  2228.         EndM
  2229.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2230.         IMPORT_CFM_FUNCTION SndInputGetDeviceInfo
  2231.     ENDIF
  2232.  
  2233. ;
  2234. ; pascal ComponentResult SndInputSetDeviceInfo(ComponentInstance self, OSType infoType, void *infoData)
  2235. ;
  2236.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2237.         Macro
  2238.         _SndInputSetDeviceInfo
  2239.             move.l              #$00080008,-(sp)
  2240.             moveq               #0,D0
  2241.             dc.w                $A82A
  2242.         EndM
  2243.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2244.         IMPORT_CFM_FUNCTION SndInputSetDeviceInfo
  2245.     ENDIF
  2246.  
  2247. ;
  2248. ; pascal ComponentResult SndInputInitHardware(ComponentInstance self)
  2249. ;
  2250.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2251.         Macro
  2252.         _SndInputInitHardware
  2253.             move.l              #$00000009,-(sp)
  2254.             moveq               #0,D0
  2255.             dc.w                $A82A
  2256.         EndM
  2257.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2258.         IMPORT_CFM_FUNCTION SndInputInitHardware
  2259.     ENDIF
  2260.  
  2261.     ENDIF
  2262.  
  2263.     ENDIF ; __SOUND__ 
  2264.  
  2265.